(describe-function-1): Change output for keyboard macros.

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 4b5a2e0320806889efe9096208aa5f83021259ce..cda2e7d19f25d5d06b2e7ca6b086108eb96eb6c4 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -323,6 +323,9 @@ The usage info is built from ARGLIST.  DOC can be nil."
                                                 function)))))
                   usage)
                 (car usage))
+               ((or (stringp def)
+                    (vectorp def))
+                (format "\nMacro: %s" (format-kbd-macro def)))
                (t "[Missing arglist.  Please make a bug report.]")))
        (terpri))
       (let ((obsolete (and